home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / grafik / gfx-system / cybergfx_install < prev    next >
Text File  |  1995-02-05  |  33KB  |  995 lines
  1. ;******************************************************************************** 
  2. ;
  3. ;CyberGraphics Install By Robert Reiswig ©1995 
  4. ;For Frank Mariak 
  5. ;
  6. ;
  7. ;Installer suggestions or problems: rcr@netcom.com
  8. ;
  9. ;Thanks to ScottE for the EGS Dirs - Thanks to Flam for Spectrum Install testing! 
  10. ;
  11. ;********************************************************************************
  12.  
  13.  
  14. ;******************************************************************************** 
  15. ;
  16. ; Read All System information 
  17. ;
  18. ;********************************************************************************
  19. (set #PAY 0) ; 0=NO 1=YES 
  20. (set cpu (database "cpu"))
  21. (set vblank (database "vblank"))
  22. (set graphmem (database "graphics-mem"))
  23. (set totmem (database "total-mem"))
  24. (set osver (/ (getversion "LIBS:version.library") 65536))
  25. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  26. (set fastmem (- totmem graphmem))
  27.  
  28. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  29. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  30. ( if (= osver 41) ( (set workbench "4.0")) )))))
  31.  
  32. (run "type >RAM:Cyber SYS:Expansion/village.library.info opt h")
  33. (set runstring (cat "search" " RAM:Cyber "))
  34.  
  35. (set runstring1 (cat runstring "\"R=64\""))   (if (= (run runstring1) 0) (set MonitorIS 64))      
  36. (set runstring1 (cat runstring "\"R=57\""))   (if (= (run runstring1) 0) (set MonitorIS 57))
  37. (set runstring1 (cat runstring "\"R=48\""))   (if (= (run runstring1) 0) (set MonitorIS 48))
  38. (set runstring1 (cat runstring "\"R=38\""))   (if (= (run runstring1) 0) (set MonitorIS 38))
  39. (set runstring1 (cat runstring "\"R=35\""))   (if (= (run runstring1) 0) (set MonitorIS 35))
  40. (set runstring1 (cat runstring "\"R=15\""))   (if (= (run runstring1) 0) (set MonitorIS 15))
  41. (set runstring1 (cat runstring "\"CUSTOM\"")) (if (= (run runstring1) 0) (set MonitorIS 99))    
  42.  
  43.  
  44. (run "type >RAM:lan EnvArc:sys/locale.prefs opt h")
  45. (set runstring (cat "search" " RAM:lan "))
  46.  
  47. (set english "")  (set german  "")
  48.  
  49. (set runstring1 (cat runstring "\"deutschland\""))   (if (= (run runstring1) 0) (set german1 "Deutsch"))
  50. (set runstring1 (cat runstring "\"english\""))   (if (= (run runstring1) 0) (set english1 "English"))      
  51.  
  52. ;******************************************************************************** 
  53. ;
  54. ;ASK DEFAULT LANG
  55. ;
  56. ;********************************************************************************
  57.  
  58.  
  59. (set #langQuestion (cat "The following were found in Locale:\n\n" english1 "\n"german1"\n\nSelect one of the installers supported Languages."))
  60.  
  61. (set LAN  (askchoice (choices "German (Deutsch)" "English"
  62.              (prompt #langQuestion)
  63.                      (help "Select a Language")
  64.                    (default lang)
  65.                  )
  66.           )
  67. )
  68.  
  69.  
  70.  
  71.  
  72. ;******************************************************************************** 
  73. ;
  74. ;English Information
  75. ;
  76. ;********************************************************************************
  77.  
  78.  
  79. (set #ThankYou (cat "\nWelcome to the Registered version of the Cybergraphics "
  80.                     "installer!\n\n\nTHANK YOU"
  81.                )
  82. )
  83.  
  84. (set #By (cat "Cybergraphics Software by:\n\nFrank Mariak\nfmariak@chaosengine.ping.de"
  85.               "\n\n&\n\nThomas G.Sontowski\nmarvin@sub.ph-cip.uni-koeln.de"
  86.               "\n\n\nInstaller By:\n Robert Reiswig - rcr@netcom.com"
  87.          )
  88. )
  89.  
  90.  
  91.  
  92.  
  93.  
  94. (set #MinReqOS (cat "The following are the MINIMUM REQUIREMENTS!\n"
  95.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  96.                     "Kickstart 3.x, **You only have " workbench "**\n\n" 
  97.                     "PicassoII in linear mode *not segmented*\n\n"
  98.                     "68020 or higher\n\n"
  99.                     "2 MB of fast memory"                       
  100.                ) 
  101. )
  102.  
  103.  
  104. (set #MinReqCp (cat "The following are the MINIMUM REQUIREMENTS!\n"
  105.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  106.                     "68020 or higher, **You only have " cpu "**\n\n"
  107.                     "PicassoII in linear mode *not segmented*\n\n"
  108.                     "Kickstart 3.x\n\n"                     
  109.                     "2 MB of fast memory" 
  110.                )
  111. )  
  112.  
  113.  
  114. (set #SysInfo (cat "Basic System Check, This Machine Has\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  115.                    " \"" workbench "\" Version of OS\n\n"
  116.                    " \"" cpu "\" Processor\n\n "
  117.                    " \"" blank "\" Machine\n\n"
  118.                    " \"" graphmem  "\" Total Free Chip Memory\n\n"
  119.                    " \"" fastmem  "\" Total Free Fast Memory\n\n  \"" totmem "\" Total Free Memory\n\n"
  120.               )
  121. )
  122.  
  123.  
  124. (set #WillInstall "\n\n\n\nThis installer will Move OR Delete the Current Graphic Boards's Drivers.  Please read the Docs if you have any question!\n")
  125.  
  126.  
  127. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  128.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  129.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  130.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  131.                           "YOU MUST DO THIS NOW!"
  132.                      )
  133. )
  134.  
  135.  
  136. (set #BackUpFiles "BackUp the Files")
  137. (set #DeleteFiles "Delete the Files")
  138. (set #ask-BackOrDelete "The Installer will Back up the Village Tronic Picasso II files to SYS:Storage/Village or SYS:Storage/EGS for EGS boards. What do you want it to do?")
  139.  
  140.  
  141. (set #YES-ADPRO "Yes - Install ADPro Saver")
  142. (set #NO-ADPRO "No - Don't Install ADPro Saver")
  143. (set #ask-ADPRO "Do you wish to install the CyBERgraphics ADPro saver?")
  144. (set #where-ADPRO "Where do you wish to Install the ADPro Saver?\n(The default is \"ADPRO:Savers2\")")
  145.  
  146. (set #YES-MC4D "Yes - Install MaxonCinema4D display module")
  147. (set #NO-MC4D "No - Don't Install MaxonCinema4D display module")
  148. (set #ask-MC4D "Do you wish to install the MaxonCinema4D display module?")
  149. (set #where-MC4D "Where do you wish to Install the MaxonCinema4D display module?\n(The default is \"libs:\")")
  150.  
  151. (set #YES-PHOTOW "Yes - Install PhotoworX display module")
  152. (set #NO-PHOTOW "No - Don't Install PhotoworX display module")
  153. (set #ask-PHOTOW "Do you wish to install the PhotoworX display module?")
  154. (set #where-PHOTOW "Where do you wish to Install the PhotoworX display module?\n(The default is \"work:\")")
  155.  
  156. (set #YES-PHOTOG "Yes - Install Photogenics saver module")
  157. (set #NO-PHOTOG "No - Don't Install Photogenics saver module")
  158. (set #ask-PHOTOG "Do you wish to install the Photogenics saver module?")
  159. (set #where-PHOTOG "Where do you wish to Install the Photogenics saver module?\n(The default is \"work:\")")
  160.  
  161. (set #YES-REAL "Yes - Install Real3D display module")
  162. (set #NO-REAL "No - Don't Install Real3D display module")
  163. (set #ask-REAL "Do you wish to install the Real3D display module?")
  164. (set #where-REAL "Where do you wish to Install the Real3D display module?\n(The default is \"libs:\")")
  165.  
  166. (set #ask-MODEFILE "Which modefile should be installed ?")
  167. (set #15KHZ "15khz maximum")
  168. (set #31KHZ "31khz maximum")
  169. (set #57KHZ "57khz maximum")
  170. (set #64KHZ "64khz maximum")
  171.  
  172.  
  173. (set #wishtoinstall "Do you wish to install any of the following?")
  174. (set #order "Order Form")
  175. (set #guide "AmigaGuide File")
  176. (set #devdocs  "Developer Documentation")
  177. (set #versions "Versions - Shows Vers of Cybergraphics") 
  178. (set #WhereStuffDir "Please select where you wish to put them.\n(A directory called \"CyberGraphics\" will be created there!)")
  179.  
  180. (set #Comming (cat "\nCOMING! (Planned Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  181.                    "15/16/24 bit extension of the "normal" graphics.library, that means that "
  182.                    "you can open 24bit screens as standard intuition screens and that you "
  183.                    "can use all graphics.library functions on them as before. (with some "
  184.                    "limitations of course because of the missing color lookup table)\n\n"
  185.                    "Application to adjust the monitor parameters"
  186.               )  
  187. )
  188.    
  189.  
  190.  
  191. (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  192.                    "As a registered user, you will get the latest registered "
  193.                    "release of cybergraphics including a personalized graphics board driver.\n\n"
  194.                    "The first update of the graphics board driver is for free, any forthcoming "
  195.                    "update will cost DM 5 (US$ 5 outside EU) just to pay our posting&packaging "
  196.                    "costs. email updates will be charge free. This offer is valid for registered users only of course."
  197.               )
  198. )
  199.  
  200.  
  201.  
  202. (set #REG (cat "LAST INFO\n~~~~~~~~~~~~~\n"
  203.                "You can reach us at the following address:\n"
  204.                "          Frank Mariak       Thomas Sontowski        \n"
  205.                "        Klosterstr. 7      Bensberger Marktweg 15\n"
  206.                "        44135 Dortmund     51069 Köln            \n\n\n"
  207.                "Feel free to contact us by email or smail if you have any questions."
  208.           )
  209. )
  210.  
  211.  
  212.  
  213. (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  214.                         "* In the Shareware release there are no custom modes available. "
  215.                         "In the registered version there are no limitations of this kind "
  216.                         "of course. You may define higher colordepth and refresh frequencies.\n"
  217.                         "* There is only an AdPro driver in the shareware package. "
  218.                         "There also exist drivers for Maxon Cinema 4D, Real3D, Photogenics, "
  219.                         "PhotoWorx, AmaxIV ... more to come.\n"
  220.                         "* If you are registered we grant support if you have any problems "
  221.                         "or questions by email and/or smail. We can't do this for any person who "
  222.                         "has problems with the unregistered release !\n"
  223.                    )
  224. )
  225.  
  226.  
  227.  
  228. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  229.                   "By setting this variable, the planar-to-chunky conversion "
  230.                   "will be done by the CPU (in contrast to the blitter-conversion) "
  231.                   "Therefore the ugly-looking "planar" blitting-effects are gone, "
  232.                   "but the software-conversion is slower. Do you wish to Enable this feature?"
  233.              )
  234. )
  235.   
  236.  
  237. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  238.                      "By setting this variable, the Lores-Sprites on non-AA-machines "
  239.                      "become Hires-sprites (they are no longer doubled by "
  240.                      "the cybergraphics-Software). "
  241.                      "This variable is identical to the tooltype HIRESSPRITE "
  242.                      "of older Picasso-monitor files."
  243.                 )
  244. )
  245.   
  246.  
  247. (set #ask-driver (cat "Select The Driver you wish to install."))
  248.  
  249.  
  250.  
  251.  
  252. ;******************************************************************************** 
  253. ;
  254. ;German Information
  255. ;
  256. ;********************************************************************************
  257.  
  258. (if (= LAN 0)
  259. (
  260.  
  261. (set #By (cat "Cybergraphics Software von:\n\nFrank Mariak\nfmariak@chaosengine.ping.de"
  262.               "\n\n&\n\nThomas G.Sontowski\nmarvin@sub.ph-cip.uni-koeln.de"
  263.               "\n\n\nInstallerskript von:\n Robert Reiswig - rcr@netcom.com"
  264.          )
  265. )
  266.  
  267. (set #MinReqOS (cat "Folgendes sind die Minimalanforderungen !\n"
  268.               "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  269.                   "Kickstart 3.x, **Sie haben nur " Workbench "**\n\n"
  270.                   "PicassoII im linear Modus *nicht segmentiert*\n\n"
  271.                   "68020 oder höher\n\n"
  272.                   "2 MB FAST Ram"
  273.              )
  274. )
  275.  
  276. (set #MinReqCP  (cat "Folgendes sind die Minimalanforderungen!\n"
  277.                    "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  278.                    "68020 oder höher, **Sie haben nur eine " cpu "**\n\n"
  279.                    "PicassoII im linear Modus *nicht segmentiert*\n\n"
  280.                    "Kickstart 3.x\n\n"
  281.                    "2 MB FAST Ram"
  282.               )
  283. )
  284.  
  285.  
  286. (set #SysInfo (cat "Minimaler System Check, Dieser Rechner hat\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  287.                    " Version \"" Workbench "\" des OS\n\n"
  288.                    " \"" cpu "\" Prozessor\n\n "
  289.                    " \"" blank "\" Gerät\n\n"
  290.                    " \"" graphmem  "\" freier Chip Speicher\n\n"
  291.                    " \"" fastmem  "\" freies Fast RAM\n\n  \"" totmem "\" freies RAM gesamt\n\n"
  292.               )
  293. )
  294.  
  295.  
  296. (set #WillInstall "\n\n\n\nDieses Installerskript sichert oder löscht die aktuellen Grafikkarten Treiber.  Bitte lesen sie die Guidedatei bei Fragen!\n")
  297.  
  298.  
  299. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  300.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  301.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  302.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  303.                           "YOU MUST DO THIS NOW!"
  304.                      )
  305. )
  306.  
  307.  
  308. (set #BackUpFiles "Sichern der alten Dateien")
  309. (set #DeleteFiles "Löschen der alten Dateien")
  310. (set #ask-BackOrDelete "Der Installer sichert die Village Tronic Picasso II Dateien in SYS:Storage/Village oder SYS:Storage/EGS für EGS Karten. Was wollen sie tun?")
  311.  
  312.  
  313. (set #YES-ADPRO "Ja - Installiere ADPro Saver")
  314. (set #NO-ADPRO "Nein - Installiere ADPro Saver nicht")
  315. (set #ask-ADPRO "Wollen Sie den CyBERgraphics ADPro saver installieren ?")
  316. (set #where-ADPRO "Wohin wollen Sie den ADPro Saver installieren ?\n(Default ist \"ADPRO:Savers2\")")
  317.  
  318.  
  319. (set #YES-MC4D "Ja - Installiere MaxonCinema4D Treiber")
  320. (set #NO-MC4D "Nein - Installiere MaxonCinema4D Treiber nicht")
  321. (set #ask-MC4D "Wollen Sie den MaxonCinema4D Treiber installieren ?")
  322. (set #where-MC4D "Wohin wollen Sie den MaxonCinema4D Treiber installieren ?\n(Default ist \"libs:\")")
  323.  
  324. (set #YES-PHOTOW "Ja - Installiere PhotoworX Treiber")
  325. (set #NO-PHOTOW "Nein - Installiere PhotoworX Treiber nicht")
  326. (set #ask-PHOTOW "Wollen Sie den PhotoworX Treiber installieren ?")
  327. (set #where-PHOTOW "Wohin wollen Sie den PhotoworX Treiber installieren ?\n(Default ist \"work:\")")
  328.  
  329. (set #YES-PHOTOG "Ja - Installiere Photogenics Saver")
  330. (set #NO-PHOTOG "Nein - Installiere Photogenics Saver nicht")
  331. (set #ask-PHOTOG "Wollen Sie den Photogenics Saver installieren ?")
  332. (set #where-PHOTOG "Wohin wollen Sie den Photogenics Treiber installieren ?\n(Default ist \"work:\")")
  333.  
  334.  
  335. (set #YES-REAL "Ja - Installiere Real3D Treiber")
  336. (set #NO-REAL "Nein - Installiere Real3D Treiber nicht")
  337. (set #ask-REAL "Wollen Sie den Real3D Treiber installieren ?")
  338. (set #where-REAL "Wohin wollen Sie den Real3D Treiber installieren ?\n(Default ist \"libs:\")")
  339.  
  340. (set #ask-MODEFILE "Welche Mode-Definitionsdatei soll aktiviert werden ?")
  341. (set #15KHZ "Definition mit 15khz max. HFrequenz")
  342. (set #31KHZ "Definition mit 31khz max. HFrequenz")
  343. (set #57KHZ "Definition mit 57khz max. HFrequenz")
  344. (set #64KHZ "Definition mit 64khz max. HFrequenz")
  345.  
  346. (set #wishtoinstall "Wollen Sie folgende Dateien installieren ?")
  347. (set #order "Bestellformular")
  348. (set #guide "AmigaGuide Datei")
  349. (set #devdocs  "Entwickler Dokumentation")
  350. (set #versions "Versions - Zeigt die CyberGFX Versionen") 
  351. (set #WhereStuffDir "Bitte wählen sie einen Zielpfad.\n(Ein Verzeichnis \"CyberGraphics\" wird automatisch erstellt!)")
  352.  
  353. (set #Comming (cat "\nCOMING! (Geplante Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  354.                    "* 15/16/24 bit Erweiterung der "normalen" graphics.library, das bedeutet, daß "
  355.                    "man 24bit Bildschirme als Standard Intuition Bildschirme öffnen kann und "
  356.                    "das alle graphics.library Funktionen wie zuvor darauf benutzt werden können "
  357.                    "(mit Einschränkungen wegen der fehlenden Farbtabelle)\n\n"
  358.                    "* Ein Monitor Modes Edit Tool"
  359.               )  
  360. )
  361.    
  362.  
  363. (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  364.             "Als registrierter Anwender erhalten Sie die neueste Version von "
  365.             "cybergraphics mit einem auf sie persönlich registrierten Grafikkarten "
  366.             "Treiber. Neu erscheinende Versionen der cybergraphics libraries "
  367.             "und tools werden weiterhin über elektronische Netze veröffentlicht "
  368.             "und können dann auch direkt von Ihnen ohne Einschränkungen genutzt "
  369.             "werden. Neue Versionen des Grafikkarten Treibers werden Ihnen "
  370.             "persönlich zugestellt (per smail bzw. email)\n"
  371.             "Das erste Update des Grafikkarten Treibers bekommen Sie kostenlos "
  372.             "zugestellt, alle weiteren werden Ihnen gegen einen Unkostenbeitrag von "
  373.             "DM 5 (US$ 5 außerhalb der EU) umgehend zugestellt, falls sie den Postweg "
  374.             "wünschen (email-Zusendung bleibt kostenfrei) "
  375.             "Dieses Angebot gilt selbstverständlich nur für registrierte Benutzer.\n"
  376.               )
  377. )
  378.  
  379.  
  380. (set #REG        (cat"Letzte Info\n~~~~~~~~~~~~~\n"
  381.                      " Bei Fragen wenden Sie sich an:\n\n"
  382.                      "     Frank Mariak       Thomas Sontowski        \n"
  383.                      "      Klosterstr. 7      Bensberger Marktweg 15\n"
  384.                      "      44135 Dortmund     51069 Köln            \n\n\n"
  385.                      "Bei Anregungen & Verbesserungsvorschläge können Sie uns gerne per Post oder email kontaktieren."
  386.                  )
  387.  
  388. )
  389.  
  390.  
  391.  
  392.  
  393. (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  394.                         "* Im Shareware release sind keine Custom Modes verfügbar. "
  395.                         "In der registrierten Version sind diese Beschränkungen natürlich nicht. "
  396.                         "Dort können höhere Farbtiefen und Refreshfrequenzen verwendet werden..\n"
  397.                         "* Nur der ADPro 2.5 Treiber ist im Shareware release verfügbar. "
  398.                         "In der Vollversion gibt es auch Treiber für Maxon Cinema 4D, Real3D, Photogenics, "
  399.                         "PhotoWorx, AmaxIV ... mehr werden folgen.\n"
  400.                    )
  401. )
  402.  
  403.  
  404.  
  405. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  406.                   "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung "
  407.                   "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) "
  408.                   "Damit sind die teilweise merkwürdig aussehenden "planar" Bliteffekte verschwunden, "
  409.                   "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese Möglichkeit aktivieren ?"
  410.              )
  411. )
  412.   
  413.  
  414. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  415.                      "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Geräten "
  416.                      "zu Hires-sprites (Sie werden nicht mehr von der cybergraphics Software "
  417.                      "verdoppelt). "
  418.                      "(Diese Variable ist identisch mit dem Tooltype HIRESSPRITE "
  419.                      "in der alten Picasso software)."
  420.                 )
  421. )
  422.  
  423.  
  424. )
  425.  
  426. )
  427.  
  428.  
  429.  
  430. ;******************************************************************************** 
  431. ;
  432. ; Main Part of the Installer (Main Loop) 
  433. ;
  434. ;********************************************************************************
  435.  
  436.  
  437. (if (= #PAY 1)
  438.    (message #ThankYou)
  439. )
  440.  
  441. (message #by)
  442.  
  443. ;******************************************************************************** 
  444. ; Check CPU & OS for Right versions 
  445. ;********************************************************************************
  446. (if (< osver 39)  (abort #MinReqOS) )
  447. (if (< cpu 68020) (abort #MinReqCP) )
  448.  
  449. ;******************************************************************************** 
  450. ;
  451. ;ASK DEFAULT GFX board
  452. ;
  453. ;********************************************************************************
  454.  
  455.  
  456. (set #board (cat "\nPlease Select the Graphics Board you wish to install Cybergraphics for:\n"))
  457.  
  458. (set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo"
  459.              (prompt #board)
  460.                      (help "Select a Gfx Board")
  461.                    (default 0)
  462.                  )
  463.           )
  464. )
  465. ;******************************************************************************** 
  466. ; Warning Messages 
  467. ;********************************************************************************
  468. (message #SysInfo) 
  469. (message #WillInstall)
  470.  
  471. ;******************************************************************************** 
  472. ; Maksure the Monitor type is set to Custom 
  473. ;********************************************************************************
  474. (if (< MonitorIS 99)
  475.  (
  476.   (if (= board 0) 
  477.     (message #NeedChangeTool) 
  478.   )
  479.  )
  480. )
  481. ;******************************************************************************** 
  482. ; Ask if to backup the Current OLDER libraries 
  483. ;********************************************************************************
  484. (set keep (askchoice (choices #BackUpFiles #DeleteFiles)
  485.              (prompt #ask-BackOrDelete)
  486.                      (help   #ask-BackOrDelete)
  487.                    (default 0)
  488.       )
  489. )
  490.  
  491. ;******************************************************************************** 
  492. ; If backup TRUE then move all old files to
  493. ;         "SYS:Storage/Village" or "SYS:Storage/EGS"
  494. ;********************************************************************************
  495. (if (= keep 0)
  496.  (
  497.  
  498.  
  499.  
  500.  
  501.  (if (= board 0)
  502.  
  503.   (
  504.    (if (< (exists ("SYS:Storage/Village")) 2)
  505.        (makedir ("SYS:Storage/Village") (infos)))  
  506.  
  507.    
  508.    (complete 10)
  509.    (if (> (exists ("libs:vilintuisup.library")) 0)
  510.      (copylib (source "libs:vilintuisup.library") (dest "SYS:Storage/Village"))
  511.    )
  512.    
  513.    (complete 20)
  514.    (if (> (exists ("sys:Expansion/village.library")) 0)
  515.        (copyfiles (source "SYS:Expansion/village.library") (dest "SYS:Storage/Village") (infos))
  516.    )       
  517.    
  518.    (complete 30) 
  519.    (if (> (exists ("Devs:Monitors/Picasso")) 0)
  520.        (copyfiles (source "Devs:Monitors/Picasso") (dest "SYS:Storage/Village") (infos))
  521.    ) 
  522.  
  523.   )
  524.  )
  525.  
  526.  
  527.  (if (> board 0)
  528.  
  529.   (
  530.    
  531.    (if (< (exists ("SYS:Storage/EGS")) 2)
  532.        (makedir ("SYS:Storage/EGS") (infos)))  
  533.  
  534.    (complete 5)
  535.  
  536.    (if (> (exists ("SYS:WBStartup/E.S.P.")) 0)
  537.        (copylib (source "SYS:WBStartup/E.S.P.") (dest "SYS:Storage/EGS") (infos))
  538.    )
  539.  
  540.    (complete 10)
  541.    (if (> (exists ("SYS:WBStartup/EGSAmigaDriver")) 0)
  542.        (copyfiles (source "SYS:WBStartup/EGSAmigaDriver") (dest "SYS:Storage/EGS") (infos))
  543.    )       
  544.     
  545.    (complete 15)
  546.    (if (> (exists ("SYS:WBStartup/EGSStartup")) 0)
  547.        (copyfiles (source "SYS:WBStartup/EGSStartup") (dest "SYS:Storage/EGS") (infos))
  548.    )       
  549.     
  550.    (complete 20)
  551.    (if (> (exists ("devs:monitors/piccolo")) 0)
  552.        (copyfiles (source "devs:monitors/piccolo") (dest "SYS:Storage/EGS") (infos))
  553.    )       
  554.   
  555.    (complete 25) 
  556.    (if (> (exists ("Devs:Monitors/EGS")) 0)
  557.        (copyfiles (source "Devs:Monitors/EGS") (dest "SYS:Storage/EGS") (infos))
  558.    ) 
  559.  
  560.    (complete 35)
  561.    (if (> (exists ("SYS:WBStartup/PicoRetarget")) 0)
  562.        (copyfiles (source "SYS:WBStartup/PicoRetarget") (dest "SYS:Storage/EGS") (infos))
  563.    )
  564.  
  565.  
  566.   )
  567.  )
  568.  
  569.  
  570.  )
  571. ) 
  572.  
  573. ;******************************************************************************** 
  574. ; Delete Old files from system
  575. ;********************************************************************************
  576. (complete 50)
  577. (if (= board 0)
  578.  (
  579.   (delete "sys:Expansion/village.library")
  580.   (delete "sys:Expansion/village.library.info")
  581.   (delete "Devs:Monitors/Picasso")
  582.  )
  583. )
  584.  
  585.  
  586. (if (> board 0)
  587.  (
  588.   (delete "SYS:WBStartup/EGSAmigaDriver")
  589.   (delete "SYS:WBStartup/EGSAmigaDriver.info")
  590.   (delete "SYS:WBStartup/E.S.P.")
  591.   (delete "SYS:WBStartup/E.S.P..info")
  592.   (delete "DEVS:Monitors/EGS")
  593.   (delete "DEVS:Monitors/EGS.info")
  594.   (delete "SYS:WBStartup/PicoRetarget")
  595.   (delete "SYS:WBStartup/PicoRetarget.info")
  596.  )
  597. )
  598.  
  599.  
  600. (if (= board 2)
  601.  (
  602.   (delete "DEVS:Monitors/Piccolo")
  603.   (delete "DEVS:Monitors/Piccolo.info")
  604.  )
  605. )
  606.  
  607.  
  608.  
  609. ;******************************************************************************** 
  610. ; Make ENVARC: for boards and copy files
  611. ;********************************************************************************
  612. (if (= #PAY 1)
  613. (
  614.  
  615.  
  616. (if (= board 0)
  617.  (
  618.   (run "makedir envarc:cybergraphics")
  619.   (run "makedir envarc:cybergraphics/Picasso")
  620.   (run "ConvPicassoModes")
  621.  )
  622. )
  623.  
  624.  
  625.  
  626. (if (= board 1)
  627.  (
  628.   (run "makedir envarc:cybergraphics")
  629.   (run "makedir envarc:cybergraphics/Spectrum")
  630.   (copyfiles (source "modes")  (dest "envarc:cybergraphics/Spectrum") (all) ) 
  631.  )
  632. )
  633.  
  634.  
  635. (if (= board 2)
  636.  (
  637.   (run "makedir envarc:cybergraphics")
  638.   (run "makedir envarc:cybergraphics/Piccolo")
  639.   (copyfiles (source "modes")  (dest "envarc:cybergraphics/Piccolo") (all) ) 
  640.  )
  641. )
  642.  
  643.  
  644. )
  645. )
  646.  
  647. ;******************************************************************************** 
  648. ; Copy over new Cyber files to system
  649. ;********************************************************************************
  650. (copylib (source "libs/cybergraphics.library")  (dest "libs:"))
  651. (copylib (source "libs/cyberintuition.library")  (dest "libs:"))
  652. (copylib (source "libs/cyberlayers.library")  (dest "libs:"))
  653. (copylib (source "libs/vilintuisup.library")  (dest "libs:")) 
  654.  
  655.  
  656. (if (= board 0)
  657.  (copyfiles (source "devs/monitors/Picasso")  (dest "devs:monitors") (infos) )    
  658. )
  659.  
  660. (if (= board 1)
  661.  (copyfiles (source "devs/monitors/Spectrum")  (dest "devs:monitors") (infos) )    
  662. )
  663.  
  664. (if (= board 2)
  665.  (copyfiles (source "devs/monitors/Piccolo")  (dest "devs:monitors") (infos) )    
  666. )
  667.  
  668.  
  669.  
  670. ;******************************************************************************** 
  671. ; Ask which modefile to install (in case of piccolo or spectrum)
  672. ;********************************************************************************
  673. (if (= #PAY 1)
  674. (
  675.  
  676. (if (> board 0)
  677.  (
  678.  
  679.    (set modefile (askchoice    (choices #15KHZ #31KHZ #57KHZ #64KHZ)
  680.                            (prompt #ask-MODEFILE)
  681.                            (help   #ask-MODEFILE)
  682.                          (default 0)
  683.              )
  684.    )
  685.  
  686.    (if (= board 1)
  687.       (
  688.         (if (= modefile 0) (run "setenv SpectrumMonitor Monitor-15khz") )
  689.         (if (= modefile 1) (run "setenv SpectrumMonitor Monitor-31khz") )
  690.         (if (= modefile 2) (run "setenv SpectrumMonitor Monitor-57khz") )
  691.         (if (= modefile 3) (run "setenv SpectrumMonitor Monitor-64khz") )
  692.         (copyfiles (source "env:SpectrumMonitor")  (dest "envarc:") )    
  693.       )
  694.    )
  695.  
  696.    (if (= board 2)
  697.       (
  698.         (if (= modefile 0) (run "setenv PiccoloMonitor Monitor-15khz") )
  699.         (if (= modefile 1) (run "setenv PiccoloMonitor Monitor-31khz") )
  700.         (if (= modefile 2) (run "setenv PiccoloMonitor Monitor-57khz") )
  701.         (if (= modefile 3) (run "setenv PiccoloMonitor Monitor-64khz") )
  702.         (copyfiles (source "env:PiccoloMonitor")  (dest "envarc:") )
  703.       )
  704.    )
  705.  
  706.  )
  707. )
  708.  
  709.  
  710. )
  711. )
  712.  
  713. ;******************************************************************************** 
  714. ; ASK to set the 2 ENV modes!
  715. ;********************************************************************************
  716. (if (= #PAY 1)
  717. (
  718.  
  719.  
  720. (set cpup2c   (askchoice    (choices "Yes" "No")
  721.                            (prompt #cpup2c)
  722.                            (help   #cpup2c)
  723.                          (default 0)
  724.           )
  725. )
  726.  
  727.  
  728. (if (= cpup2c 0)
  729.    (
  730.      (set GotaDo "setenv cybergraphics/CPUP2C=\"1\"")
  731.      (run GotaDo)
  732.      (copyfiles (source "ENV:cybergraphics/CPUP2C") (dest "ENVARC:cybergraphics") )
  733.    )
  734. )
  735.  
  736.  
  737. (set HIRESCRSR (askchoice    (choices "Yes" "No")
  738.                            (prompt #hirescrsr)
  739.                            (help   #hirescrsr)
  740.                          (default 0)
  741.            )
  742. )
  743.  
  744.  
  745. (if (= HIRESCRSR 0)
  746.    (
  747.      (set GotaDo "setenv cybergraphics/HIRESCRSR=\"1\"")
  748.      (run GotaDo)
  749.      (copyfiles (source "ENV:cybergraphics/HIRESCRSR") (dest "ENVARC:cybergraphics") )
  750.    )
  751. )
  752.  
  753.  
  754.  
  755.  
  756. )
  757. )
  758.  
  759. ;******************************************************************************** 
  760. ; Ask to copy the ADPro driver and copy for NOPAY
  761. ;********************************************************************************
  762. (if (= #PAY 0)
  763.   (
  764.     (set RegDriver (askoptions (choices "ADPro 2.5.0" )
  765.                     (prompt #ask-driver)
  766.                   (help   #ask-driver)
  767.                   (default 0)
  768.           )
  769.     )
  770.  
  771.      (if (IN RegDriver 0)
  772.       (
  773.        (copyfiles (prompt #where-ADPRO)
  774.               (source "drivers/CyBERgraphics")
  775.               (dest   (askdir (prompt #where-ADPRO)
  776.                       (help   #where-ADPRO)
  777.                       (default "ADPRO:Savers2")
  778.                   )
  779.               )
  780.               (optional) 
  781.        )
  782.       )
  783.    )
  784.  
  785.   )
  786. )   
  787.  
  788.  
  789. ;******************************************************************************** 
  790. ; ReG version with all the drivers!
  791. ;********************************************************************************
  792. (if (= #PAY 1)
  793.   (
  794.    
  795.    (set RegDriver (askoptions (choices "Maxon Cinema 4D" "PhotoWorx" "Photogenics"
  796.                                        "Real3D Library" "ADPro 2.5.0" )
  797.                     (prompt #ask-driver)
  798.                   (help   #ask-driver)
  799.                   (default 0)
  800.           )
  801.    )
  802.  
  803.  
  804.   
  805.    (if (IN RegDriver 0)
  806.       (
  807.        (copyfiles (prompt #where-MC4D)
  808.               (source "drivers/cinema4d/cinemaausgabe.library")
  809.               (dest   (askdir (prompt #where-MC4D)
  810.                       (help   #where-MC4D)
  811.                       (default "libs:")
  812.                   )
  813.               )
  814.               (optional) 
  815.        )
  816.       )
  817.    )
  818.  
  819.  
  820.    (if (IN RegDriver 1)
  821.       (
  822.        (copyfiles (prompt #where-PHOTOW)
  823.               (source "drivers/photoworx/cyber.viewer")
  824.               (dest   (askdir (prompt #where-PHOTOW)
  825.                       (help   #where-PHOTOW)
  826.                       (default "Work:")
  827.                   )
  828.               )
  829.               (optional) 
  830.        )
  831.       )
  832.    )
  833.  
  834.  
  835.    (if (IN RegDriver 2)
  836.       (
  837.        (copyfiles (prompt #where-PHOTOG)
  838.               (source "drivers/photogenics/cybergraphics.gio")
  839.               (dest   (askdir (prompt #where-PHOTOG)
  840.                       (help   #where-PHOTOG)
  841.                       (default "Work:")
  842.                   )
  843.               )
  844.               (optional) 
  845.        )
  846.       )
  847.    )
  848.  
  849.  
  850.    (if (IN RegDriver 3)
  851.       (
  852.        (copyfiles (prompt #where-REAL)
  853.               (source "drivers/real3d/cybergfx_r3d.library")
  854.               (dest   (askdir (prompt #where-REAL)
  855.                       (help   #where-REAL)
  856.                       (default "libs:")
  857.                   )
  858.               )
  859.               (optional) 
  860.        )
  861.       )
  862.    )
  863.  
  864.  
  865.    (if (IN RegDriver 4)
  866.       (
  867.        (copyfiles (prompt #where-ADPRO)
  868.               (source "drivers/adpro/CyBERgraphics")
  869.               (dest   (askdir (prompt #where-ADPRO)
  870.                       (help   #where-ADPRO)
  871.                       (default "ADPRO:Savers2")
  872.                   )
  873.               )
  874.               (optional) 
  875.        )
  876.       )
  877.    )
  878.  
  879.  
  880.  
  881.  
  882.  
  883.  
  884.  
  885.   )  
  886. )
  887.  
  888.  
  889.  
  890. ;******************************************************************************** 
  891. ; Ask to install DEVDOCS, Versions, Order, guide
  892. ;********************************************************************************
  893. (set ToDo       (askoptions (choices #order #guide #devdocs #versions)
  894.                 (prompt #wishtoinstall)
  895.                 (help #wishtoinstall)
  896.                 (default 63)
  897.         )
  898. )
  899.  
  900. ;******************************************************************************** 
  901. ; Ask WHERE to install DEVDOCS, Versions, Order, guide
  902. ;********************************************************************************
  903. (if (<> ToDo 0)
  904.  (
  905.  
  906.   (set CyberDrawer (askdir (prompt #WhereStuffDir)
  907.                (help   #WhereStuffDir)
  908.                (default "Work:CyberGraphics")
  909.            )  
  910.   )
  911.  
  912.  
  913.   (if (< (exists (tackon CyberDrawer "CyberGraphics")) 2)
  914.       (makedir (tackon CyberDrawer "CyberGraphics") (infos))
  915.         
  916.   )
  917.     
  918.  
  919.   (set where (tackon CyberDrawer "CyberGraphics"))
  920.   (set @default-dest CyberDrawer)
  921.  
  922. ;******************************************************************************** 
  923. ; COPY selected stuff!
  924. ;********************************************************************************
  925.   (if (IN ToDo 0)
  926.    (
  927.       
  928.     (if (= LAN 0)  
  929.       (copyfiles (source "Bestellformular")  (dest where) (infos) )    
  930.     )
  931.    
  932.     (if (= LAN 1)
  933.       (copyfiles (source "Orderform")  (dest where) (infos) )
  934.     )       
  935.      
  936.    )
  937.   )
  938.  
  939.  
  940.  
  941.   (if (IN ToDo 1) 
  942.    (  
  943.  
  944.     (if (= LAN 0)  
  945.       (copyfiles (source "CyBERgfx_D.guide")  (dest where) (infos) (newname "CyberGfx.guide"))    
  946.     )
  947.    
  948.     (if (= LAN 1)
  949.       (copyfiles (source "CyBERgfx_E.guide")  (dest where) (infos) (newname "CyberGfx.guide"))    
  950.     )        
  951.  
  952.    )
  953.   )
  954.  
  955.  
  956.  
  957.   (if (IN ToDo 2) 
  958.    (  
  959.      (if (< (exists (tackon where "DevDocs")) 2)
  960.           (makedir (tackon where "DevDocs") (infos))
  961.      )
  962.      (copyfiles (source "devdocs")  (dest (tackon where "DevDocs")) (all) ) 
  963.    )
  964.   )
  965.  
  966.  
  967.  
  968.   (if (IN ToDo 3) 
  969.    (  
  970.      (copyfiles (source "Versions")  (dest where) (infos) )    
  971.    )
  972.   )
  973.  
  974.  
  975.   
  976.  
  977.  
  978.  )
  979. )
  980.  
  981.  
  982. ;******************************************************************************** 
  983. ; How to get the REAL version and what coming!
  984. ;********************************************************************************
  985.  
  986. (if (= #PAY 0)
  987.   (message #Restrictions)
  988. )
  989. (message #Comming)
  990. (message #Updates)
  991. (message #REG)
  992.  
  993.  
  994.  
  995.